perl max index

welcome to shbcf.ru